Public Class Category
    Private _id As Integer
    Public Name As String
    Public Description As String
    Public NumberOfQuestions As Integer

    Public ReadOnly Property ID() As Integer
        Get
            Return _id
        End Get
    End Property

    Public Sub New( _
    ByVal id As Integer, _
    ByVal name As String, _
    ByVal desc As String, _
    ByVal numberofQuestions As Integer)
        _id = id
        Me.Name = name
        Me.Description = desc
        Me.NumberOfQuestions = numberofQuestions
    End Sub

End Class
